home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Resource for Source: C/C++
/
Resource for Source - C-C++.iso
/
codelib2
/
v_02_01
/
2n01048c
< prev
next >
Encoding:
Amiga
Atari
Commodore
DOS
FM Towns/JPY
Macintosh
Macintosh JP
Macintosh to JP
NeXTSTEP
RISC OS/Acorn
Shift JIS
UTF-8
Wrap
Text File
|
1995-11-01
|
255 b
|
24 lines
function search(var s : string) : integer;
label
1;
var
i : integer;
begin
i := MAX;
while i > 0 do
begin
if s = table[i] then
begin
search := i;
goto 1;
end;
i := i - 1;
end;
search := 0;
1:
end;